home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / springer / multip / multip.cmm < prev    next >
Encoding:
Text File  |  1991-12-08  |  24.6 KB  |  560 lines
  1. % This is MULTIP.CMM, the plain TeX macro package
  2. % (CM version) from Springer-Verlag
  3. % for multi-author books in physics
  4. % version of March 1989
  5. \font\tenbf                  = cmb10
  6. \font\bxf                    = cmbx10
  7. \font\tbfontt                = cmbx10 scaled\magstep1
  8. \font\tafontt                = cmbx10 scaled\magstep2
  9. \font\tbfontss               = cmbx5  scaled\magstep1
  10. \font\tafontss               = cmbx5  scaled\magstep2
  11. \font\sixbf                  = cmbx6
  12. \font\tbfonts                = cmbx7  scaled\magstep1
  13. \font\tafonts                = cmbx7  scaled\magstep2
  14. \font\eightbf                = cmbx8
  15. \font\isf                    = cmex10   scaled 833
  16. \font\sixi                   = cmmi6
  17. \font\eighti                 = cmmi8
  18. \font\tams                   = cmmib10
  19. \font\kleinhalbcurs          = cmmib10 scaled 833
  20. \font\tbmt                   = cmmib10 scaled\magstep1
  21. \font\tamt                   = cmmib10 scaled\magstep2
  22. \font\smallescriptscriptfont = cmr5
  23. \font\smalletextfont         = cmr5 at 10pt
  24. \font\smallescriptfont       = cmr5 at 7pt
  25. \font\sixrm                  = cmr6
  26. \font\eightrm                = cmr8
  27. \font\eightsl                = cmsl8
  28. \font\tensans                = cmss10
  29. \font\fivesans               = cmss10 at 5pt
  30. \font\sixsans                = cmss10 at 6pt
  31. \font\sevensans              = cmss10 at 7pt
  32. \font\eightsans              = cmss10 at 8pt
  33. \font\tbst                   = cmsy10 scaled\magstep1
  34. \font\tast                   = cmsy10 scaled\magstep2
  35. \font\tbsss                  = cmsy5  scaled\magstep1
  36. \font\tasss                  = cmsy5  scaled\magstep2
  37. \font\sixsy                  = cmsy6
  38. \font\tbss                   = cmsy7  scaled\magstep1
  39. \font\tass                   = cmsy7  scaled\magstep2
  40. \font\eightsy                = cmsy8
  41. \font\eightit                = cmti8
  42. \font\eighttt                = cmtt8
  43. %------------------------------------------------------------------------
  44. % Kodierungen zur automatischen Erstellung des Layouts:
  45. \magnification=\magstep1
  46. \voffset=-1true cm
  47. \vsize=23.25true cm
  48. \hsize=14.4true cm
  49. \hfuzz=2pt
  50. \tolerance=500
  51. \abovedisplayskip=3 mm plus6pt minus 4pt
  52. \belowdisplayskip=3 mm plus6pt minus 4pt
  53. \abovedisplayshortskip=0mm plus6pt minus 2pt
  54. \belowdisplayshortskip=2 mm plus4pt minus 4pt
  55. \predisplaypenalty=0
  56. \clubpenalty=10000
  57. \widowpenalty=10000
  58. \frenchspacing
  59. \parskip=0pt
  60. \parindent=1.5em
  61. \newdimen\footindent\footindent=\parindent
  62. \def\raggedright{\rightskip=0pt plus 4em\spaceskip=.3333em\xspaceskip=.5em}
  63. %=============================================================================
  64. % Definition der versal griechischen Buchstaben
  65. %============================================================================
  66.   \mathchardef\Gamma="0100
  67.   \mathchardef\Delta="0101
  68.   \mathchardef\Theta="0102
  69.   \mathchardef\Lambda="0103
  70.   \mathchardef\Xi="0104
  71.   \mathchardef\Pi="0105
  72.   \mathchardef\Sigma="0106
  73.   \mathchardef\Upsilon="0107
  74.   \mathchardef\Phi="0108
  75.   \mathchardef\Psi="0109
  76.   \mathchardef\Omega="010A
  77. %-------------------------------------------------------------------
  78. \newfam\sansfam
  79. \textfont\sansfam=\tensans\scriptfont\sansfam=\sevensans
  80. \scriptscriptfont\sansfam=\fivesans
  81. \def\sans{\fam\sansfam\tensans}
  82. %---------------------------------------------------------------------------
  83. \skewchar\eighti='177 \skewchar\sixi='177
  84. \skewchar\eightsy='60 \skewchar\sixsy='60
  85. \hyphenchar\eighttt=-1
  86. %----------------------------------------------------------------------
  87. \def\club{\hbox{$\clubsuit$}}
  88. \def\sun{\hbox{$\odot$}}
  89. \def\la{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  90. $\displaystyle##$\hfil\cr<\cr\sim\cr}}}
  91. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr\sim\cr}}}
  92. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr\sim\cr}}}
  93. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr<\cr\sim
  94. \cr}}}}}
  95. \def\ga{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  96. $\displaystyle##$\hfil\cr>\cr\sim\cr}}}
  97. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr\sim\cr}}}
  98. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr\sim\cr}}}
  99. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr>\cr\sim
  100. \cr}}}}}
  101. \def\sq{\hbox{\rlap{$\sqcap$}$\sqcup$}}
  102. \def\degr{\hbox{$^\circ$}}
  103. \def\arcmin{\hbox{$^\prime$}}
  104. \def\arcsec{\hbox{$^{\prime\prime}$}}
  105. \def\utw{\smash{\rlap{\lower5pt\hbox{$\sim$}}}}
  106. \def\udtw{\smash{\rlap{\lower6pt\hbox{$\approx$}}}}
  107. \def\fd{\hbox{$.\!\!^{\rm d}$}}
  108. \def\fh{\hbox{$.\!\!^{\rm h}$}}
  109. \def\fm{\hbox{$.\!\!^{\rm m}$}}
  110. \def\fs{\hbox{$.\!\!^{\rm s}$}}
  111. \def\fdg{\hbox{$.\!\!^\circ$}}
  112. \def\farcm{\hbox{$.\mkern-4mu^\prime$}}
  113. \def\farcs{\hbox{$.\!\!^{\prime\prime}$}}
  114. \def\fp{\hbox{$.\!\!^{\scriptscriptstyle\rm p}$}}
  115. \def\getsto{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  116. $\displaystyle##$\hfil\cr\gets\cr\to\cr}}}
  117. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr\gets\cr\to\cr}}}
  118. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr\gets\cr\to
  119. \cr}}}
  120. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr\gets
  121. \cr\to\cr}}}}}
  122. \def\cor{\mathrel{\mathchoice {\hbox{$\widehat=$}}{\hbox{$\widehat=$}}
  123. {\hbox{$\scriptstyle\hat=$}}
  124. {\hbox{$\scriptscriptstyle\hat=$}}}}
  125. \def\grole{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  126. $\displaystyle##$\hfil\cr>\cr\noalign{\vskip-1.5pt}<\cr}}}
  127. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr
  128. >\cr\noalign{\vskip-1.5pt}<\cr}}}
  129. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr
  130. >\cr\noalign{\vskip-1pt}<\cr}}}
  131. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
  132. >\cr\noalign{\vskip-0.5pt}<\cr}}}}}
  133. \def\lid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  134. $\displaystyle##$\hfil\cr<\cr=\cr}}}
  135. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr=\cr}}}
  136. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr=\cr}}}
  137. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr<\cr
  138. =\cr}}}}}
  139. \def\gid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  140. $\displaystyle##$\hfil\cr>\cr=\cr}}}
  141. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr=\cr}}}
  142. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr=\cr}}}
  143. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr>\cr
  144. =\cr}}}}}
  145. \def\sol{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  146. $\displaystyle##$\hfil\cr\sim\cr\noalign{\vskip-0.25truemm}<\cr}}}
  147. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr\sim\cr<\cr}}}
  148. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr\sim\cr<\cr}}}
  149. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr\sim
  150. \cr<\cr}}}}}
  151. \def\sog{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  152. $\displaystyle##$\hfil\cr\sim\cr\noalign{\vskip-0.25truemm}>\cr}}}
  153. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr\sim\cr>\cr}}}
  154. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr\sim\cr>\cr}}}
  155. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr\sim
  156. \cr>\cr}}}}}
  157. \def\lse{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  158. $\displaystyle##$\hfil\cr<\cr\simeq\cr}}}
  159. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr\simeq\cr}}}
  160. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr\simeq
  161. \cr}}}
  162. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr<\cr
  163. \simeq\cr}}}}}
  164. \def\gse{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  165. $\displaystyle##$\hfil\cr>\cr\simeq\cr}}}
  166. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr\simeq\cr}}}
  167. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr\simeq
  168. \cr}}}
  169. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr>\cr
  170. \simeq\cr}}}}}
  171. \def\grole{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  172. $\displaystyle##$\hfil\cr>\cr\noalign{\vskip-1.5pt}<\cr}}}
  173. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr
  174. >\cr\noalign{\vskip-1.5pt}<\cr}}}
  175. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr
  176. >\cr\noalign{\vskip-1pt}<\cr}}}
  177. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
  178. >\cr\noalign{\vskip-0.5pt}<\cr}}}}}
  179. \def\leogr{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  180. $\displaystyle##$\hfil\cr<\cr\noalign{\vskip-1.5pt}>\cr}}}
  181. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr
  182. <\cr\noalign{\vskip-1.5pt}>\cr}}}
  183. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr
  184. <\cr\noalign{\vskip-1pt}>\cr}}}
  185. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
  186. <\cr\noalign{\vskip-0.5pt}>\cr}}}}}
  187. \def\loa{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  188. $\displaystyle##$\hfil\cr<\cr\approx\cr}}}
  189. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr\approx
  190. \cr}}}
  191. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr\approx
  192. \cr}}}
  193. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr<\cr
  194. \approx\cr}}}}}
  195. \def\goa{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  196. $\displaystyle##$\hfil\cr>\cr\approx\cr}}}
  197. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr\approx
  198. \cr}}}
  199. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr\approx
  200. \cr}}}
  201. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr>\cr
  202. \approx\cr}}}}}
  203. \def\bbbr{{\rm I\!R}} %reelle Zahlen
  204. \def\bbbn{{\rm I\!N}} %natuerliche Zahlen
  205. \def\bbbm{{\rm I\!M}}
  206. \def\bbbh{{\rm I\!H}}
  207. \def\bbbk{{\rm I\!K}}
  208. \def\bbbp{{\rm I\!P}}
  209. \def\bbbone{{\mathchoice {\rm 1\mskip-4mu l} {\rm 1\mskip-4mu l}
  210. {\rm 1\mskip-4.5mu l} {\rm 1\mskip-5mu l}}}
  211. \def\bbbc{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm C$}\hbox{\hbox
  212. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
  213. {\setbox0=\hbox{$\textstyle\rm C$}\hbox{\hbox
  214. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
  215. {\setbox0=\hbox{$\scriptstyle\rm C$}\hbox{\hbox
  216. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
  217. {\setbox0=\hbox{$\scriptscriptstyle\rm C$}\hbox{\hbox
  218. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}}}
  219. \def\bbbe{{\mathchoice {\setbox0=\hbox{\smalletextfont e}\hbox{\raise
  220. 0.1\ht0\hbox to0pt{\kern0.4\wd0\vrule width0.3pt height0.7\ht0\hss}\box0}}
  221. {\setbox0=\hbox{\smalletextfont e}\hbox{\raise
  222. 0.1\ht0\hbox to0pt{\kern0.4\wd0\vrule width0.3pt height0.7\ht0\hss}\box0}}
  223. {\setbox0=\hbox{\smallescriptfont e}\hbox{\raise
  224. 0.1\ht0\hbox to0pt{\kern0.5\wd0\vrule width0.2pt height0.7\ht0\hss}\box0}}
  225. {\setbox0=\hbox{\smallescriptscriptfont e}\hbox{\raise
  226. 0.1\ht0\hbox to0pt{\kern0.4\wd0\vrule width0.2pt height0.7\ht0\hss}\box0}}}}
  227. \def\bbbq{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm Q$}\hbox{\raise
  228. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}}
  229. {\setbox0=\hbox{$\textstyle\rm Q$}\hbox{\raise
  230. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}}
  231. {\setbox0=\hbox{$\scriptstyle\rm Q$}\hbox{\raise
  232. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}
  233. {\setbox0=\hbox{$\scriptscriptstyle\rm Q$}\hbox{\raise
  234. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}}}
  235. \def\bbbt{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm
  236. T$}\hbox{\hbox to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
  237. {\setbox0=\hbox{$\textstyle\rm T$}\hbox{\hbox
  238. to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
  239. {\setbox0=\hbox{$\scriptstyle\rm T$}\hbox{\hbox
  240. to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
  241. {\setbox0=\hbox{$\scriptscriptstyle\rm T$}\hbox{\hbox
  242. to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}}}
  243. \def\bbbs{{\mathchoice
  244. {\setbox0=\hbox{$\displaystyle     \rm S$}\hbox{\raise0.5\ht0\hbox
  245. to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox
  246. to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}}
  247. {\setbox0=\hbox{$\textstyle        \rm S$}\hbox{\raise0.5\ht0\hbox
  248. to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox
  249. to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}}
  250. {\setbox0=\hbox{$\scriptstyle      \rm S$}\hbox{\raise0.5\ht0\hbox
  251. to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox
  252. to0pt{\kern0.5\wd0\vrule height0.45\ht0\hss}\box0}}
  253. {\setbox0=\hbox{$\scriptscriptstyle\rm S$}\hbox{\raise0.5\ht0\hbox
  254. to0pt{\kern0.4\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox
  255. to0pt{\kern0.55\wd0\vrule height0.45\ht0\hss}\box0}}}}
  256. \def\bbbz{{\mathchoice {\hbox{$\sans\textstyle Z\kern-0.4em Z$}}
  257. {\hbox{$\sans\textstyle Z\kern-0.4em Z$}}
  258. {\hbox{$\sans\scriptstyle Z\kern-0.3em Z$}}
  259. {\hbox{$\sans\scriptscriptstyle Z\kern-0.2em Z$}}}}
  260. %------------------------------------------------------------------------
  261. \def\diameter{{\ifmmode\oslash\else$\oslash$\fi}}
  262. %------------------------------------------------------------------------
  263. % Produktzeichen in "displaystyle" und aus kleinerem font (8 pt)   %
  264. %
  265. \mathchardef\prodk = "1351
  266. \def\prod{\mathop{\hbox{$\textfont3=\isf\displaystyle\prodk$}}\limits}
  267. %-------------------------------------------------------------------
  268. % Abbildungen
  269. \def\placefigure{\dimen0=\ht1\advance\dimen0by\dp1
  270. \advance\dimen0by5\normalbaselineskip
  271. \ifdim\dimen0>\vsize
  272.   \pageinsert\box1\vss\endinsert
  273.   \else % keine seitenhohe Abbildung
  274.   \ifdim\pagetotal<\pagegoal %aktuelle Seite noch nicht voll
  275.     \advance\dimen0by\pagetotal
  276.     \ifdim\dimen0>\pagegoal %passt Abb+4Z nicht mehr auf akt Seite
  277.       \topinsert\box1\endinsert
  278.       \else\dimen0=\pagetotal %Abb+4Z passt auf akt Seite
  279.       \advance\dimen0 by-6.5\normalbaselineskip
  280.       \ifdim\dimen0>0pt %sind mindestens 7 Zeilen ueber Abb
  281.         \vskip12pt plus6pt minus6pt
  282.         \box1
  283.         \vskip12pt plus6pt minus6pt
  284.         \else\topinsert\box1\endinsert
  285.       \fi
  286.     \fi
  287.     \else\dimen0=\pagetotal\advance\dimen0 by-\pagegoal %akt Seite voll
  288.     \advance\dimen0 by-6.5\normalbaselineskip
  289.     \ifdim\dimen0>0pt %sind noch 7 Zeilen vor Abb auf naechster Seite
  290.         \vskip12pt plus6pt minus6pt
  291.         \box1
  292.         \vskip12pt plus6pt minus6pt
  293.       \else\topinsert\box1\endinsert
  294.     \fi
  295.   \fi
  296. \fi}
  297. %
  298. \def\begfig#1cm#2\endfig{\par
  299. \setbox1=\vbox{\hbox{\vrule height#1true cm}#2}\placefigure}
  300. %
  301. %\def\begfigside#1cm#2cm#3\endfigside{\par
  302. %\setbox1=\vbox{\hbox{\hbox to#2true cm{\vrule height#1true cm\hrule}%
  303. %\kern.8true cm\vbox{\advance\hsize by-.8true cm\advance\hsize by-#2true
  304. %cm#3}}}\placefigure}
  305. %
  306. \def\begdoublefig#1cm #2 #3 \enddoublefig{\begfig#1cm%
  307. \vskip-.8333\baselineskip\line{\vtop{\hsize=0.46\hsize#2}\hfill
  308. \vtop{\hsize=0.46\hsize#3}}\endfig}
  309. %%-------------------------------------------------------------------
  310. %% Abbildungslegenden
  311. \def\figure#1#2{\vskip6pt\vbox{\noindent\petit{\bf Fig.\ts#1.\
  312. }\ignorespaces #2\vskip\normalbaselineskip}}
  313. %%-----------------------------------------------------------------
  314. % Tabellenkoepfe
  315. \def\tabcap#1#2{\smallskip\vbox{\noindent\petit{\bf Table\ts#1.\
  316. }\ignorespaces #2\smallskip}}
  317. %-------------------------------------------------------------------
  318. \def\begtab#1cm#2\endtab{\par
  319.    \setbox1=\vbox{#2\hbox{\vrule height#1true cm}}
  320.    \ifvoid\topins\midinsert\box1\endinsert
  321.    \else\topinsert\box1\endinsert\fi}
  322. %-------------------------------------------------------------------
  323. \def\begpet{\vskip6pt\bgroup\petit}
  324. \def\endpet{\vskip6pt\egroup}
  325. % Referenzen
  326. \newdimen\refindent
  327. \def\begref{\vskip1cm\bgroup\petit
  328. \setbox0=\hbox{\club.99. }\refindent=\wd0
  329. \let\sl=\rm\let\INS=N}
  330. % Jede Referenz bleibt komplett, kein Seitenumbruch dazwischen
  331. \def\ref#1{\filbreak\if N\INS\let\INS=Y\vbox{\noindent\tbfontt
  332. References\vskip1cm}\fi\hangindent\refindent
  333. \hangafter=1\noindent\hbox to\refindent{#1\hfil}\ignorespaces}
  334. \let\endref=\endpet% Ende der Referenzen
  335. %-------------------------------------------------------------------
  336. \def\vec#1{{\textfont1=\tams\scriptfont1=\kleinhalbcurs
  337. \textfont0=\bxf\scriptfont0=\sevenbf
  338. \mathchoice
  339. {\hbox{$\displaystyle#1$}}
  340. {\hbox{$\textstyle#1$}}
  341. {\hbox{$\scriptstyle#1$}}
  342. {\hbox{$\scriptscriptstyle#1$}}}}
  343. %---------------------------------------------------------------------
  344. \def\petit{\def\rm{\fam0\eightrm}%
  345. \textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
  346.  \textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
  347.  \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
  348.  \def\it{\fam\itfam\eightit}%
  349.  \textfont\itfam=\eightit
  350.  \def\sl{\fam\slfam\eightsl}%
  351.  \textfont\slfam=\eightsl
  352.  \def\bf{\fam\bffam\eightbf}%
  353.  \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf
  354.  \scriptscriptfont\bffam=\fivebf
  355.  \def\sans{\fam\sansfam\eightsans}%
  356.  \textfont\sansfam=\eightsans \scriptfont\sansfam=\sixsans
  357.  \scriptscriptfont\sansfam=\fivesans
  358.  \def\tt{\fam\ttfam\eighttt}%
  359.  \textfont\ttfam=\eighttt
  360.  \normalbaselineskip=9pt
  361.  \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}%
  362.  \normalbaselines\rm
  363. \def\vec##1{\setbox0=\hbox{$##1$}\hbox{\hbox
  364. to0pt{\copy0\hss}\kern0.45pt\box0}}}%
  365. %-------------------------------------------------------------------
  366. \newtoks\AUTHOR
  367. \newtoks\HEAD
  368. \catcode`\@=\active
  369. \def\author#1{\noindent{\it\ignorespaces#1}\vskip12pt
  370. {\def@##1{}%
  371. \setbox0=\hbox{\petit\kern2.5true cc\ignorespaces#1\unskip}%
  372. \ifdim\wd0>\hsize
  373. \message{The names of the authors exceed the headline, please use a }%
  374. \message{short form with AUTHORRUNNING}\gdef\leftheadline{%
  375. \hbox to2.5true cc{\folio\hfil}AUTHORS suppressed due to excessive
  376. length\hfil}%
  377. \global\AUTHOR={AUTHORS were to long}\else
  378. \xdef\leftheadline{\hbox to2.5true
  379. cc{\noexpand\folio\hfil}\ignorespaces#1\hfill}%
  380. \global\AUTHOR={\def@##1{}\ignorespaces#1\unskip}\fi
  381. }\let\INS=E}
  382. \def\address#1{\noindent\ignorespaces #1\par\catcode`\@=12
  383. \dimen0=6.3true cm\advance\dimen0 by-36pt\ifdim\dimen0>\pagetotal
  384. \advance\dimen0by-\pagetotal\vskip\dimen0\fi\noindent}
  385. %---------------------------------------------------------------------
  386. \let\INS=N%
  387. % Aktionen, die bei Antreffen des @-Zeichens zu machen sind;
  388. % drei Faelle a) @ bei AUTHOR, b) 1.@ bei ADDRESS, c) alle weiteren @'s
  389. \def@#1{\if N\INS $^{#1}$\else\if
  390. E\INS\hangindent0.5\parindent\hangafter=1%
  391. \noindent\hbox to0.5\parindent{$^{#1}$\hfil}\let\INS=Y\ignorespaces
  392. \else\par\hangindent0.5\parindent\hangafter=1
  393. \noindent\hbox to0.5\parindent{$^{#1}$\hfil}\ignorespaces\fi\fi}%
  394. \catcode`\@=12
  395. %-------------------------------------------------------------------
  396. \def\newline{\hfil\break}
  397. % "running head"
  398. \headline={\petit\def\newline{ }\def\fonote#1{}\ifodd\pageno
  399. \rightheadline\else\leftheadline\fi}
  400. \def\rightheadline{\hfil Missing TITLEA\hbox to2.5true cc{\hfil\folio}}
  401. \def\leftheadline{\hbox to2.5true cc{\folio\hfil}Missing name(s) of the
  402. author(s)\hfil}
  403. \nopagenumbers
  404. %
  405. % Der Schalter \header gibt an, ob ein "running head" gedruckt werden
  406. % soll; wenn er nicht auf "N" steht kommt ein solcher.
  407. \let\header=Y
  408. \let\FIG=N
  409. \newbox\figbox
  410. \output={\if N\header\headline={\hfil}\fi\plainoutput\global\let\header=Y
  411. \if Y\FIG\topinsert\unvbox\figbox\endinsert\global\let\FIG=N\fi}
  412. %------------------------------------------------------
  413. \def\headrunning#1{\message{Running head on right hand sides (HEAD)
  414. has been changed}\gdef\rightheadline{\hfill\ignorespaces#1\unskip
  415. \hbox to2.5true cc{\hfil\folio}}\global\HEAD={\ignorespaces#1\unskip}}
  416. \def\authorrunning#1{\message{Running head on left hand sides (AUTHOR)
  417. has been changed}\gdef\leftheadline{\hbox to2.5true cc{\folio
  418. \hfil}\ignorespaces#1\hfill}\global\AUTHOR={\ignorespaces#1\unskip}}
  419. %------------------------------------------------------
  420. \let\lasttitle=N
  421.  \def\head#1{\let\header=N\bgroup
  422.  \textfont0=\tafontt \scriptfont0=\tafonts \scriptscriptfont0=\tafontss
  423.  \textfont1=\tamt \scriptfont1=\tams \scriptscriptfont1=\tams
  424.  \textfont2=\tast \scriptfont2=\tass \scriptscriptfont2=\tasss
  425.  \par\baselineskip=16pt
  426.  \def\club{\hbox{$\clubsuit$ }}
  427.      \lineskip=16pt
  428.      \tafontt
  429.      \raggedright
  430.      \pretolerance=10000
  431.      \noindent
  432.      \ignorespaces#1
  433.      \vskip12pt\egroup
  434.      \nobreak
  435.      \parindent=0pt
  436.      \everypar={\global\parindent=1.5em
  437.      \global\let\lasttitle=N\global\everypar={}}%
  438.      \global\let\lasttitle=A%
  439.      \setbox0=\hbox{\petit\def\newline{ }\def\fonote##1{}\kern2.5true
  440.      cc\ignorespaces#1}\ifdim\wd0>\hsize
  441.      \message{Your HEAD exceeds the headline, please use a short form
  442. with HEADRUNNING}\gdef\rightheadline{\hfil HEAD
  443. suppressed due to excessive length\hbox to2.5true cc{\hfil\folio}}%
  444. \global\HEAD={HEAD was to long}\else
  445. \gdef\rightheadline{\hfill\ignorespaces#1\unskip\hbox to2.5true
  446. cc{\hfil\folio}}\global\HEAD={\ignorespaces#1\unskip}\fi
  447. \catcode`\@=\active
  448.      \ignorespaces}
  449. %=============================================================================
  450. % Ueberschriften 1.Ordnung ohne automatische Numerierung.
  451. %
  452. %=============================================================================
  453. %
  454. %-----------------------------------------------------
  455.  \def\titlea#1#2{\if N\lasttitle\else\vskip-28pt
  456.      \fi
  457.      \vskip36pt plus 8pt minus8pt
  458.      \bgroup
  459. \textfont0=\tbfontt \scriptfont0=\tbfonts \scriptscriptfont0=\tbfontss
  460. \textfont1=\tbmt \scriptfont1=\tams \scriptscriptfont1=\kleinhalbcurs
  461. \textfont2=\tbst \scriptfont2=\tbss \scriptscriptfont2=\tbsss
  462.      \baselineskip=16pt
  463.      \lineskip=16pt
  464.      \pretolerance=10000
  465.      \noindent
  466.      \tbfontt
  467.      \rightskip 0pt plus 6em
  468.      \setbox0=\vbox{\def\fonote##1{}%
  469.      \noindent
  470.      \if!#1!\ignorespaces#2
  471.      \else\setbox0=\hbox{\ignorespaces#1\unskip\ }\hangindent=\wd0
  472.      \hangafter=1\box0\ignorespaces#2\fi
  473.      \vskip20pt}%
  474.      \dimen0=\pagetotal\advance\dimen0 by-\pageshrink
  475.      \ifdim\dimen0<\pagegoal
  476.      \dimen0=\ht0\advance\dimen0 by\dp0\advance\dimen0 by
  477.      3\normalbaselineskip
  478.      \advance\dimen0 by\pagetotal
  479.      \ifdim\dimen0>\pagegoal\vfill\eject\fi\fi
  480.      \noindent
  481.      \if!#1!\ignorespaces#2
  482.      \else\setbox0=\hbox{\ignorespaces#1\unskip\ }\hangindent=\wd0
  483.      \hangafter=1\box0\ignorespaces#2\fi
  484.      \vskip20pt plus8pt minus8pt\egroup
  485.      \nobreak
  486.      \parindent=0pt
  487.      \everypar={\global\parindent=1.5em
  488.      \global\let\lasttitle=N\global\everypar={}}%
  489.      \global\let\lasttitle=A%
  490.      \ignorespaces}
  491. %------------------------------------------------------
  492.  \def\titleb#1#2{\if N\lasttitle\else\vskip-4pt\vskip-\baselineskip
  493.      \fi
  494.      \vskip20pt plus 4pt minus4pt
  495.      \bgroup
  496.      \textfont1=\tams \scriptfont1=\kleinhalbcurs
  497.      \pretolerance=10000
  498.      \noindent
  499.      \bxf
  500.      \rightskip 0pt plus 6em
  501.      \setbox0=\vbox{\def\fonote##1{}%
  502.      \noindent
  503.      \if!#1!\ignorespaces#2
  504.      \else\setbox0=\hbox{\ignorespaces#1\ }\hangindent=\wd0
  505.      \hangafter=1\box0#2\fi
  506.      \vskip10pt}%
  507.      \dimen0=\pagetotal\advance\dimen0 by-\pageshrink
  508.      \ifdim\dimen0<\pagegoal
  509.      \dimen0=\ht0\advance\dimen0 by\dp0\advance\dimen0 by
  510.      2\normalbaselineskip
  511.      \advance\dimen0 by\pagetotal
  512.      \ifdim\dimen0>\pagegoal\vfill\eject\fi\fi
  513.      \noindent
  514.      \if!#1!\ignorespaces#2
  515.      \else\setbox0=\hbox{\ignorespaces#1\ }\hangindent=\wd0
  516.      \hangafter=1\box0#2\fi
  517.      \vskip10pt plus4pt minus4pt\egroup
  518.      \nobreak
  519.      \global\let\lasttitle=B%
  520.      \parindent=0pt
  521.      \everypar={\global\parindent=1.5em
  522.      \global\let\lasttitle=N\global\everypar={}}%
  523.      \ignorespaces}
  524. %-------------------------------------------------------------------
  525.  \def\titlec#1#2{\if N\lasttitle\else\vskip-3pt\vskip-\baselineskip
  526.      \fi
  527.      \vskip6pt plus 4pt minus 4pt
  528.      \bgroup
  529.      \bf
  530.      \noindent
  531.      \if!#1!\else\ignorespaces#1\unskip\ \fi
  532.      \ignorespaces#2\unskip\ \egroup
  533.      \ignorespaces}
  534. %%-------------------------------------------------------------------
  535. \let\ts=\thinspace
  536. \def\footnoterule{\kern-3pt\hrule width 2true cm\kern2.6pt}
  537. % Fussnoten-macros
  538. \newcount\footcount \footcount=0
  539. \def\advftncnt{\advance\footcount by1\global\footcount=\footcount}
  540. % Automatisch numerierte Fussnote, Fussnotentext in petit
  541. \def\fonote#1{\advftncnt$^{\the\footcount}$\begingroup\petit
  542. \def\textindent##1{\hangindent\footindent\hangafter=1\noindent\hbox
  543. to\footindent{##1\hss}\ignorespaces}%
  544. \vfootnote{$^{\the\footcount}$}{#1}\endgroup}
  545. %-------------------------------------------------------------------
  546. \def\item#1{\par\noindent
  547. \hangindent6.5 mm\hangafter=0
  548. \llap{#1\enspace}\ignorespaces}
  549. %-------------------------------------------------------------------
  550. \def\itemitem#1{\par\noindent
  551. \hangindent11.5 mm\hangafter=0
  552. \llap{#1\enspace}\ignorespaces}
  553. %-------------------------------------------------------------------
  554. \def\typeset{\noindent{\petit This article was processed by the author
  555. using the \TeX\ Macropackage from Springer-Verlag.\par}}
  556. % Satz fur bye:
  557. \outer\def\bye{\bigskip\typeset\vfill
  558. \gdef\leftheadline{\hbox to2.5true cc{\folio\hfil}\ignorespaces
  559. \the\AUTHOR\unskip: \the\HEAD\hfill}\supereject\end}
  560.